*&---------------------------------------------------------------------*
*& Report  ZDEMO_SEND_IDOC_CUST_LEGACY                                 *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZDEMO_SEND_IDOC_CUST_LEGACY             .

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
PARAMETER :P_KUNNR TYPE KUNNR OBLIGATORY,
           P_MSGTYP TYPE EDI_MESTYP DEFAULT 'ZDEBMAS',
           P_LOGSYS TYPE LOGSYS.
SELECTION-SCREEN END OF BLOCK B1.


****************************************
DATA : WA_MASTER_IDOC  TYPE EDIDD,
       WA_COMM_IDOC    TYPE EDIDC,
       WA_CTRL_REC     TYPE EDIDC.

DATA : IT_MASTER_IDOC  TYPE TABLE OF EDIDD,
       IT_COMM_IDOCS   TYPE TABLE OF EDIDC,
       WA_Z1LEGACY_KNA1 TYPE Z1LEGACY_KNA1,
       IT_Z1LEGACY_KNA1 TYPE TABLE OF Z1LEGACY_KNA1.

*Fill the Master IDoc - Ctrl Rec Details
WA_CTRL_REC-MESTYP = P_MSGTYP.
WA_CTRL_REC-IDOCTP = 'ZDEBMAS_01'.


IF P_LOGSYS IS NOT INITIAL.
   WA_CTRL_REC-RCVPRT = 'LS'.
   WA_CTRL_REC-RCVPRN = P_LOGSYS.
ENDIF.


SELECT  KUNNR LKUNNR LEGSYS INTO TABLE IT_Z1LEGACY_KNA1 FROM KNA1
                                  WHERE KUNNR = P_KUNNR.
*Prepare Master IDoc
LOOP AT IT_Z1LEGACY_KNA1 INTO WA_Z1LEGACY_KNA1.
 CLEAR WA_MASTER_IDOC.
 WA_MASTER_IDOC-SEGNAM = 'Z1LEGACY_KNA1'.
 WA_MASTER_IDOC-SDATA  = WA_Z1LEGACY_KNA1.
 APPEND WA_MASTER_IDOC TO IT_MASTER_IDOC.
ENDLOOP.


IF IT_MASTER_IDOC IS INITIAL.
   MESSAGE I001(ZALL_IDOCS).
   EXIT.
ELSE.
   MESSAGE I002(ZALL_IDOCS).
CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
  EXPORTING
    MASTER_IDOC_CONTROL                  = wa_ctrl_rec
*   OBJ_TYPE                             = ''
*   CHNUM                                = ''
  TABLES
    COMMUNICATION_IDOC_CONTROL           = it_comm_idocs
    MASTER_IDOC_DATA                     = it_master_idoc
* EXCEPTIONS
*   ERROR_IN_IDOC_CONTROL                = 1
*   ERROR_WRITING_IDOC_STATUS            = 2
*   ERROR_IN_IDOC_DATA                   = 3
*   SENDING_LOGICAL_SYSTEM_UNKNOWN       = 4
*   OTHERS                               = 5
          .
IF SY-SUBRC = 0.
   IF IT_COMM_IDOCS IS NOT INITIAL.
     LOOP AT IT_COMM_IDOCS INTO WA_COMM_IDOC.
         WRITE : / WA_COMM_IDOC-DOCNUM COLOR 7.
     ENDLOOP.
    ELSE.
      MESSAGE I004(ZALL_IDOCS).
    ENDIF.
ENDIF.

ENDIF.